
Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
x <- rvonmises(n = 40, m = 2, k = 10)
kuiper(x, rads = TRUE)
watson(x, rads = TRUE)
x <- rvonmises(40, m = 2, k = 0)
kuiper(x, rads = TRUE)
watson(x, rads = TRUE)
# }
Run the code above in your browser using DataLab